object dmInt1: TdmInt1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 194
  Top = 92
  Height = 350
  Width = 477
  object Banco: TADOConnection
    CommandTimeout = 60
    ConnectionTimeout = 60
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 24
    Top = 10
  end
  object stPr_NotaV: TStoredProc
    DatabaseName = 'industrial'
    StoredProcName = 'INSERE_NOTAVENDA'
    Left = 76
    Top = 10
    ParamData = <
      item
        DataType = ftString
        Name = 'NOTA_SERIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTA_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ENT_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'EMP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TRAN_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TRAN_CODIGO_REDESPACHO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'HIST_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'MOE_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'SUP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DIV_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CONF_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CODF_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NATO_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REG_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_COMISREP'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_COMISSUP'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_OBSERVACAO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQIPI'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQICMS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQICMSUBS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQDESCICM'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQEMB'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQENC'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQSEGURO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQDESCONTO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_FRETE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQFRETE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_TOTALPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_TOTALDESCONTO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_EMBALAGEM'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ENCARGOS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_BCALIPI'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_BCALICMS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_BCALICMSUBS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_BCALDESCICM'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_SEGURO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_IPI'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ICMS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ICMSUBS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_DESCICM'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ISENTAIPI'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ISENTAICMS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_OUTRASIPI'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_OUTRASICMS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_VALORCONTABIL'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_BCALCOMISSAOREP'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_QTDEEMB'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_PESOLIQ'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_PESOBRU'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_SITUACAOTRIB'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_CONTADEBITO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_CONTACREDITO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_PRAZOMEDIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_NUMPGTOS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_QTDEITENS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_ESPEMBALAGEM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_MOTORISTA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_VIATRANSPORTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_MARCAEMP'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_PLACAVEIC'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'NOTV_DATAFAT'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'NOTV_DATAENTRADA'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'NOTV_DATASAIDA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_HORASAIDA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CANP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IMP_NOTAFISCAL'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_MENSAGEM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_EMITENTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CODF_CODIGO1'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_FRETEAUT'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_ALIQICMSAUT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REG_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTV_TIPOFRETE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'NOTV_VIDROS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'END_CODIGO'
        ParamType = ptInput
        Size = 2
      end
      item
        DataType = ftDate
        Name = 'NOTV_DATABASE'
        ParamType = ptInput
      end>
  end
  object CONN: TSQLConnection
    ConnectionName = 'OracleConnection'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Oracle'
      'DataBase=acesso_industrial'
      'User_Name=user_rhema'
      'Password=crit'
      'RowsetSize=20'
      'BlobSize=2048'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Oracle TransIsolation=ReadCommited'
      'OS Authentication=False'
      'Multiple Transaction=True'
      'Trim Char=True')
    VendorLib = 'oci.dll'
    AfterConnect = CONNAfterConnect
    Left = 20
    Top = 60
  end
  object stPr_ItemV: TStoredProc
    DatabaseName = 'Industrial'
    StoredProcName = 'INSERE_ITEMNOTAVENDA'
    Left = 180
    Top = 10
    ParamData = <
      item
        DataType = ftString
        Name = 'NOTA_SERIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTA_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ENT_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ITNV_ITEM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REF_SERIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REF_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REF_ENT_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REF_ITNV_ITEM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PRO_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'EMP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_QUANTIDADE'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_VALORUNIT'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_ALIQDESC'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_ALIQIPI'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'ITNV_DATAFAT'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_COMISREP'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_CUSTOMEDIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_DESC2'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_DESC3'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_DESC4'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_DESC5'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_ALIQICMS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ITNV_CST'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CODF_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ICMS_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'ITNV_CUSTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ITNV_OBSERVACAO'
        ParamType = ptInput
      end>
  end
  object strTitC: TStoredProc
    DatabaseName = 'Industrial'
    StoredProcName = 'INSERE_TITCR'
    Left = 124
    Top = 10
    ParamData = <
      item
        DataType = ftString
        Name = 'TIPD_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ENT_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTA_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'LOCAL_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'SUBL_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'EMP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'MOE_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'HIST_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'BORD_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_VALOR'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'TITC_DATAVENC'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'TITC_VENCORIG'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'TITC_DATAEMIS'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_TIPOVENC'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_OBS'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_OBS2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_NUMBLOQ'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_BCCOMIS'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'TITC_DATADESC'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_VLDESC'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_OBS0'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_SALDO'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'TITC_DATAPGTO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'TITC_DC'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_PAGREC'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REP_CODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTAC_NUMERO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTA_SERIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'NOTC_SERIE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_CONTAB'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_NOSSONUM'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_ORDEMIMP'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_CONFERIDO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'TITC_CMC7'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'IMP_DUPLICATA'
        ParamType = ptInput
      end>
  end
end
